home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / nyane2_b.plp < prev    next >
Text File  |  1993-11-30  |  3KB  |  141 lines
  1. /**********   半自動通信において掲示板を受信する  v1.04a用   *********/
  2.     %BulRead{
  3.         var curline[4];
  4.         var rflg[3];
  5.         rflg:={No};
  6.         curline:=@nolmemo(1);
  7.         %prompt {\n}|@tail(@laststr,{\n});
  8.         type({SET PAGE OFF\n});
  9.         wait(30,{TimeOut},prompt);
  10.         loop({
  11.             case(@getchar(@memo(1,curline,1),1,1)={*},{Yes},{
  12.                 type(curline-1|{,});
  13.                 rflg:={Yes};
  14.             });
  15.             curline:=curline-1;
  16.             im(curline>1);
  17.         });
  18.         case(rflg,
  19.         {Yes},{    type(@xc({08}));
  20.             wait(1);
  21.             receive(ForumDir|{\bul}|{.log});
  22.             type({\n});
  23.             loop({
  24.                 wait({120},{TimeOut;
  25.                 },{\nnext>},{
  26.                     type({\n}); im({Yes});
  27.                 },{\n＞},{
  28.                     wait(5,{im({No})},{\n},{im({Yes})});
  29.                 });
  30.             });
  31.             stoprec;
  32.         });
  33.     };
  34.  
  35.     %BulMark{
  36.         mclear(2);
  37.         case(tarline>1,
  38.         {Yes},{
  39.             %tar @memo(1,tarline,1);
  40.             case(@getchar(tar,1,5)<>{more>} && 
  41.                 @getchar(tar,1,2)<>{＞},
  42.             {Yes},{
  43.                 madd(2,@memo(1,1,tarline-1));
  44.                 case(@getchar(tar,1,1)={*},
  45.                 {Yes}, {madd(2,{ });
  46.                 },{No},{madd(2,{*});
  47.                 });
  48.                 madd(2,@getchar(tar,2,80));
  49.                 case(tarline<@nolmemo(1),{Yes},{
  50.                     madd(2,@memo(1,tarline+1))
  51.                 });
  52.                 mopen(1);
  53.                 mclose(3);
  54.             });
  55.         });
  56.     };
  57.  
  58.     %BulTitl{
  59.         var tarline[4];
  60.         stoprec;
  61.         mclear(1);
  62.         mclear(2);
  63.         madd(1,
  64. {  読みたいものをダブルクリックまたはPF3で指示して下さい（二度選択で取消）\n});
  65.         mread(TitleF,2);
  66.         madd(1,@memo(2,4));
  67.         mclear(2);
  68.         footnote({終了    読む    選択},{b});
  69.         loop({
  70.             mopen(1,0,21,639,459,{r});
  71.             curline(tarline);
  72.             loop({    waitx(1000);
  73.                     im(@xtype!=1 && @xtype<100 || @xlinenum<0)
  74.             });
  75.             tarline:=@xlinenum;
  76.             mclose(1);
  77.             case(@PFK(@xtype),
  78.                 1,{ BulMark; im({Yes});
  79.             },101,{ mopen(1); mclose(2); im({No});
  80.             },103,{ mopen(1); mclose(2); BulRead; im({No});
  81.             },105,{ BulMark; im({Yes});
  82.             },   ,{ im({Yes});
  83.             });
  84.         });
  85.         footnote({});
  86.     };
  87.  
  88.     %BulProc{
  89.         var cont[3];
  90.         rec2(TitleF);
  91.         type({READ\n});
  92.         loop({
  93.             wait(180,{im({No});
  94.             },{\nmore>},{
  95.                 loop({
  96.                     select({処理を選択してください},
  97.                     999,{im({Yes});
  98.                     },{    続きを見る    },{
  99.                         type({\n});
  100.                         cont:={Yes};
  101.                         im({No});
  102.                     },{  文書を選択する  },{
  103.                         BulTitl;
  104.                         cont:={No};
  105.                         im({No});
  106.                     },{     読まない     },{
  107.                         stoprec;
  108.                         cont:={No};
  109.                         im({No});
  110.                     });
  111.                 });
  112.                 im(cont);
  113.             },{\n＞},{BulTitl; im({No});
  114.             },{文書はありません－\nBBS>},{stoprec;im({No});
  115.             });
  116.         });
  117.     };
  118.  
  119.     /*
  120.     ** Main routine
  121.     */
  122.  
  123.     %TitleF    ForumDir|{\bultitle}|{.log};
  124.     %prompt    @tail(@laststr,{\n});
  125.     type({BUL\n});
  126.     wait(120,{TimeOut},
  127.     {◆この機能は本フォーラムではご利用できません◆},{
  128.         wait(30,{TimeOut},prompt);
  129.     },{\nBBS>},{
  130.         type({SET LINE 20\n});
  131.         wait(30,{TimeOut},{\nBBS>});
  132.         type({SET PAGE ON\n});
  133.         wait(30,{TimeOut},{\nBBS>});
  134.         BulProc;
  135.         type({T\n});
  136.         wait(120,{TimeOut},{\nFORUM>});
  137.         type({SET PAGE OFF\n});
  138.         wait(120,{TimeOut},{\nFORUM>});
  139.         mset(1,{n});
  140.     });
  141.